home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n08.arc / ROUNDOFF.BAS < prev    next >
BASIC Source File  |  1989-03-28  |  340b  |  13 lines
  1.      FUNCTION RoundOff! (X!, K%) STATIC
  2.          IF K% > 6 THEN K% = 6
  3.          IF ABS(X!) > 1E-39 THEN
  4.             NP% = K% - 1 - INT(LOG(ABS(X!)) / LOG(10#))
  5.             PN# = 10# ^ CDBL(NP%)
  6.             L& = PN# * X!
  7.             RoundOff! = L& / PN#
  8.          ELSE
  9.             RoundOff! = 0
  10.          END IF
  11.      END FUNCTION
  12.  
  13.